//        Simulation einer Federschwingung
begin
  repeat                               ;//uere repeat-Schleife
    t:=0;
    startwerte;                        ;//Einlesen der Startwerte
    anfang:=0;                         ;//Variable zur Unterscheidung, ob Ablauf-Taste bettigt wurde 
    
    repeat                             ;//1.innere repeat-Schleife
      //Beginn der physikalischen Berechnungen
      ;
      F:=-k*y;                         ;//a,F Berechnung
      a:=F/m
      if start__=1 then anfang:=1      ;//Abfrage der Ablauf-Taste
      if anfang=0 then                 ;//VOR Bettigung der Ablauf-Taste
      begin
        y:=schieber (ya);              ;//Schieber zur Einstellung der Startposition 
      end
      if anfang=1 then                 ;//NACH Bettigung der Ablauf-Taste
      begin
        v:=v+a*dt;                     ;//Berechnung der Geschwindigkeit
        y:=y+v*dt;                     ;//   -"-     des Ortes
        t:=t+dt;
      end;
      ausgabe (t, y, v, a);            ;//Angabe der Ausgabevariablen
    until t>mt;                        ;//1.innere repeat-Schleife wird nur bis t=mt durchlaufen
    
    repeat                             ;//2.innere repeat-Schleife
      ausgabe (t, y, v, a);            ;//Angabe der Ausgabevariablen
    until start__=1                    ;//2.innere repeat-Schleife Durchlauf bis Bettigung der Ablauf-Taste    
    
    if start__=1 then anfang:=0;       ;//Zurck auf Anfangsposition bei erneuter Bettigung der Ablauf-Taste
    neu_graf;                          ;//Graphen sollen neu gezeichnet werden
  until 2<1;                           ;//uere repeat-Schleife wird "unendlich" lang durchlaufen
end;